#!/usr/bin/perl
use strict;
use FindBin qw($Bin);
use lib $Bin;
use lib "$Bin/../lib";
use Tree::nhx_svg;

die "perl $0 <in.nhx>\n" if (@ARGV != 1);
my $innhx = shift;

open (IN,"$innhx") or die "Can't open :$innhx\n";
my $str = <IN>;

my $nhx = Tree::nhx_svg->new('show_B',1,'show_ruler',1,
	'c_line',"#000000",'line_width',2.5,'c_W',"#000000",
	'c_B',"#000000",'fsize',15,'skip',30,'fsize2',12);

$nhx->parse($str);

print $nhx->plot();

